non-shared member?

[rosshodges]

I am trying to make my menu about button take me to another form. I added the code but it says its a non-shared memeber and requires an object reference? any ideas?

Private Sub butSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butSend.Click
Dim bSuccess As Boolean = False
Dim oFiles As New Collection()
Dim sFileNames() As String
Dim byArray() As Byte
Dim i As Integer
Dim fs As FileStream
Dim oSMTP As New SMTPMailer.CSMTP()
Dim about As New Form()

butSend.Enabled = False
If lstFiles.Items.Count <> 0 Then
ReDim sFileNames(lstFiles.Items.Count - 1)
For i = 0 To lstFiles.Items.Count - 1
sFileNames(i) = Path.GetFileName(lstFiles.Items(i).ToString).ToString

fs = New System.IO.FileStream(lstFiles.Items(i).ToString, System.IO.FileMode.Open, System.IO.FileAccess.Read)
ReDim byArray(CInt(fs.Length))
fs.Read(byArray, 0, CInt(fs.Length))

oFiles.Add(byArray, sFileNames(i))
Next
bSuccess = oSMTP.Mail(txtTo.Text, txtFrom.Text, txtSubject.Text, txtBody.Text, txtServer.Text, oFiles, sFileNames)
Else
bSuccess = oSMTP.Mail(txtTo.Text, txtFrom.Text, txtSubject.Text, txtBody.Text, txtServer.Text)
End If
oSMTP = Nothing
fs = Nothing
oFiles = Nothing
butSend.Enabled = True
End Sub

Private Sub butBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butBrowse.Click
dlgOpen.ShowDialog()
txtFileName.Text = dlgOpen.FileName
End Sub

Private Sub ExitApp()
Dim ChildForm As Form() = Me.MdiChildren
Make sure to ask for saving the doc before exiting the app
Dim i As Integer
For i = 0 To ChildForm.Length - 1
ChildForm(i).Close()
Next i
Application.Exit()
End Sub Exit

Private Sub butAddFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butAddFile.Click
lstFiles.Items.Add(txtFileName.Text)
End Sub

Private Sub butRemoveFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butRemoveFile.Click
lstFiles.Items.Remove(lstFiles.SelectedItem)
End Sub

Private Sub dlgOpen_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles dlgOpen.FileOk

End Sub

Private Sub about_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub txtServer_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub frmMailTest_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub txtServer_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtServer.SelectedIndexChanged


End Sub

Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click

End Sub

Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
dlgOpen.ShowDialog()
txtFileName.Text = dlgOpen.FileName
End Sub

Private Sub StatusBar1_PanelClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.StatusBarPanelClickEventArgs) Handles StatusBar1inactive.PanelClick

End Sub

Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub txtBody_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtBody.TextChanged

End Sub

Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
ExitApp()
End Sub



Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
Form.Show()

End Sub
End Class

 

[rosshodges]

Its ok I have solved the problem thanks for your help on the previous post.